home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / mathstat.arc / M21.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1983-11-14  |  512 b   |  21 lines
  1. 0  CLS:PRINT
  2. 10   PRINT "TRIG POLYNOMIAL"
  3. 20   PRINT 
  4. 30   REM  - ENTER NUMBER OF PAIRS OF TERMS AND COEFFICIENTS HERE
  5. 35  DATA 3,1,2,-2,1,5,-3
  6. 40   PRINT "(ENTER ANGLE=99999 TO END PROGRAM)"
  7. 50   PRINT "ANGLE";
  8. 60   INPUT R
  9. 70   IF R = 99999 THEN 180
  10. 80   READ N
  11. 90   FOR I = 1 TO N
  12. 100   READ A,B
  13. 110  Z = Z + A *  SIN (I * R) + B *  COS (I * R)
  14. 120   NEXT I
  15. 130   PRINT "F(";R;")=";Z
  16. 140   RESTORE 
  17. 150   PRINT 
  18. 160  Z = 0
  19. 170   GOTO 50
  20. 180   RUN "MATH"
  21.